home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / cd-sup / viruscheckerii / install_virus_checker < prev    next >
Text File  |  1999-01-01  |  24KB  |  685 lines
  1. ; $VER: Virus_CheckerII Install 1.1 (26.01.98)
  2. ; Script to install Virus_Checker
  3. ; Written by Simon Dick of Amigaholics Club (sidick@essex.ac.uk)
  4. ; Updated and enhanced by John Veldthuis
  5. ; Updated, debugged, fixed and enhanced again by Alex van Niel
  6.  
  7. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  8. ;;;
  9. ;;; Get the version and revision number of file/device/library/OS/etc
  10. ;;;
  11. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  12. ;
  13. ; INPUTS: Item    ; Name of device/file/library/etc. "" for OS version
  14. ;
  15. ; OUTPUTS: VerN        ; (long) version/revision number
  16. ;          Ver        ; Version number
  17. ;          Rev        ; Revision number
  18. ; NOTE: Both Ver and Rev returned as 0 if "WV_Item" does not exist
  19. ;
  20. (procedure WhatVersion
  21.     (
  22.     (if (= VerN "")
  23.         (set VerNum (getversion))        ; For OS
  24.         (set VerNum (getversion VerN)))    ; For other "files"
  25.     (set Ver (/ VerNum 65536))
  26.     (set Rev (- VerNum (* Ver 65536)))
  27.     )
  28. )
  29.  
  30.  
  31. ;Set env var Virus_Checker_Path to installed place
  32. (procedure setVCEnv
  33.     (
  34.     (set @default-dest VCPath)
  35.     (set VCPathS (cat
  36.             ("setenv Virus_Checker_Path \"%s\"\n" VCPath)
  37.             ("copy env:Virus_Checker_Path envarc: quiet\n")
  38.              )
  39.     )
  40.     (textfile
  41.         (dest "T:VCEnvSet")
  42.         (append VCPathS)
  43.     )
  44.     (execute "T:VCEnvSet")
  45.     (delete "T:VCEnvSet")
  46.     )
  47. )
  48.  
  49.  
  50. (complete 0)
  51.  
  52. ;(if (= @language "deutsch")
  53. ;  (
  54. ;    ; Add the german strings here for example
  55. ;    (set where_vc "Please put the german strings in here first!"
  56. ;    )
  57. ;  )
  58. ;)
  59.  
  60. (if (= @language "nederlands")
  61.   (
  62.     (set whatinstall (cat "Wilt u Virus_CheckerII volledig installeren "
  63.                           "of slechts een deel ervan?"
  64.                      )
  65.     )
  66.  
  67.     (set hello      (cat "\nVirusCheckerII is (c)1997/1998 van Alex van Niel\n\n"
  68.                          "Een gebruikers vriendelijke Virus vernietiger voor de Amiga\n\n"
  69.                          "Gepresenteerd en gedistributeerd door\n\n"
  70.                          "Virus Help Team Nederland\n"
  71.                          "&\n"
  72.                          "United Bulletin Systems\n(lid van ABI)\n"
  73.                     )
  74.     )
  75.  
  76.     (set fullinstall "Volledig Installeren")
  77.     (set partialinstall "Delen Installeren")
  78.     (set installhelp (cat "Volledig Installeren, installeert ALLE Virus CheckerII files naar "
  79.             "de gekozen lade, terwijl wanneer u Delen Installeert slechts "
  80.                           "de  benodigde programma files installeert."
  81.                      )
  82.     )
  83.     (set where_vc (cat "Kies de directory om Virus_CheckerII in te plaatsen a.u.b.\n"
  84.                        "Virus_CheckerII zal hier GEEN!!!! eigen directory aanmaken. "
  85.                        "Dit dient u zelf te doen als u dat wenst."
  86.                   )
  87.     )
  88.     (set copyingdir    "Kopieren van Virus_CheckerII lade")
  89.  
  90.     (set copybblib     "Kopieren van Bootblock.library")
  91.     (set copybbfile    "Kopieren van Bootblock.brainfile")
  92.  
  93.     (set copyxfdlib    "Kopieren van xfdmaster.library")
  94.     (set copybguilib    "Kopieren van bgui.library")
  95.     (set copyxfddecrs  "Kopieren van  XFD externe uitpakkers, kies a.u.b. de uitpakkers die u wilt installeren")
  96.     (set copyvcbrain   "Kopieren van VirusChecker.brain")
  97.     (set copyvcprog    "Kopieren van Virus_CheckerII")
  98.     (set instaloverold "Virus_CheckerII wordt geinstalleerd in de WBStartup over een oude versie heen")
  99.     (set vcrunfrom     (cat "Als u User-Startup selecteert, dan zal er een regel aan "
  100.                             "de User-Startup toegevoegd moeten worden welke Virus_CheckerII laat opstarten. "
  101.                             "Dit kan de installatie utility voor u doen, of u kunt dit handmatig doen.\n"
  102.                             "Als u WBStartup selecteert, dan zal een icoon naar uw WBStartup lade gecopieerd "
  103.                             "worden welke Virus_CheckerII zal opstarten vanuit z'n eigen directory.\n"
  104.                             "Kiest u Geen dan lijkt me duidelijk dat Virus_CheckerII wordt "
  105.                             "gestart wanneer de computer opstart en zult u Virus_CheckerII handmatig moeten opstarten."
  106.                        )
  107.     )
  108.  
  109.     (set adjtt         (cat "Ik ga nu de WBStartup tooltype aanpassen zodat VirusCheckerII vanuit z'n eigen "
  110.                             "directory kan opstarten."
  111.                        )
  112.     )
  113.  
  114.     (set delwbicon     (cat "Ik heb het icoon Virus_CheckerII.info in uw WBStartup directory gevonden "
  115.                             "om er zeker van te zijn dat Virus_CheckerII vanuit de goede directory wordt opgestart "
  116.                             "door dit icoon, is het raadzaam dit icoon te verwijderen.\n"
  117.                             "Zal ik het icoon verwijderen?"
  118.                        )
  119.     )
  120.  
  121.     (set vcruntwo      "Waar wilt u Virus_CheckerII uit laten opstarten?")
  122.  
  123.     (set None          "Geen")
  124.  
  125.     (set bestplace     "De beste plaats is vanuit de User-Startup")
  126.     (set cantinstalloverdir "U kunt Virus_CheckerII niet over een bestaande lade heen installeren")
  127.     (set removebrain  (cat "Ik heb versie %ld.%ld van de VirusChecker.brain "
  128.                        "file in L: gevonden\n"
  129.                        "Dit is slechts nodig wanneer u Virus_CheckerII vanuit de "
  130.                        "WBStartup laat opstarten.\n"
  131.                        "Zal ik deze verwijderen?\n"
  132.                        "(niet verwijderen resulteert in het niet-installeren van het project icoon en "
  133.                        "mogelijkerwijs ook het niet correct opstarten van Virus_CheckerII)"
  134.                       )
  135.     )
  136.     (set deletebrain   "Verwijderen van L:VirusChecker.brain")
  137.     (set installguide  "Wilt u het online AmigaGuide help bestand installeren?")
  138.     (set copyingguide  "Kopieren van Virus_Checker.guide")
  139.     (set whichlangs (cat "Welke Virus CheckerII lokale catalogen wilt u "
  140.                          "installeren?")
  141.     )
  142.     (set langhelp (cat "Kopieren van deze bestanden stelt Virus_CheckerII in staat om "
  143.                        "met verschillende Lokalen onder Workbench 2.1 of hoger "
  144.                        "te draaien. Selecteer de cataloog bestand(en) die u "
  145.                        "wilt gaan gebruiken.")
  146.     )
  147.     (set adddat        "Ik moet de volgende regel aan uw \s:User-Startup\ bestand toevoegen\n\n%s")
  148.     (set copycat       "Kopieren van Virus_Checker.catalog")
  149.     (set needtoreset   (cat "VirusChecker II is een Anti-Virus Utility waar bijna 24uur per dag "
  150.                             "aan gewerkt wordt. Toch kan het zijn dat er zich problemen voor doen."
  151.                             "Vaak is dat dan weer het resultaat van niet of slecht lezen van de documentatie "
  152.                             "waardoor onnodige frustratie kan ontstaan. Ik raad u dan ook sterk aan "
  153.                             "om de documentatie in z'n geheel door te lezen. Uiteraard kkan het zijn dat "
  154.                             "sommige problemen niet op te lossen zijn door het lezen van de documentatie "
  155.                             "neem dan gerust contact met mij op. Hoe u mij kunt bereiken staat in de documentatie.\n\n"
  156.                             "Voor u Virus_CheckerII nu kunt gebruiken, is het raadzaam uw machine te resetten."
  157.                        )
  158.  
  159.     )
  160.     (set instlrexx     "Wilt u de Virus_CheckerII Arexx script(en) installeren?")
  161.     (set copyrexx      "Welke Arexx script(en) wilt u kopieren?")
  162.     (set def_dir       "Waar kan ik VirusCheckerII aantreffen/plaatsen?")
  163.     (set newicons      (cat "Dankzij Lyle Zapato, geniet Virus_CheckerII nu ook\n"
  164.                             "NewIcons support. Hij heeft een aantal verschillende speciale\n"
  165.                             "iconen gemaakt die aan dit pakket zijn toegevoegd. Deze kunnen\n"
  166.                             "gevonden worden in de lade 'Icons' in het archief.\n"
  167.                             "Deze NewIcons zijn allemaal (c)1997/1998 Lyle Zapato.\n\n"
  168.                             "Zal ik deze NewIcons ook copieren?\n"
  169.                        )
  170.     )
  171.     (set vc_arc         (cat "Zal ik Virus_CheckerII.Arc naar Virus_CheckerII's eigen lade copieren zodat u meteen "
  172.                              "al LHA en LZX archieven kan controleren? (slechts geldig voorgeregistreerde gebruikers)"
  173.                         )
  174.     )
  175.   )
  176. )
  177.  
  178. (if (= @language "english")
  179.   (
  180.     (set whatinstall (cat "Do you want a full installation of Virus CheckerII "
  181.                           "or just a partial one?"
  182.                      )
  183.     )
  184.  
  185.     (set hello      (cat "\nVirusCheckerII is (c)1997/1998 by Alex van Niel\n\n"
  186.                          "A user friendly Virus hunting utility for the Amiga computer\n\n"
  187.                          "Presented and distributed by\n\n"
  188.                          "Virus Help Team Netherlands\n"
  189.                          "&\n"
  190.                          "United Bulletin Systems\n(member of ABI)\n"
  191.                     )
  192.     )
  193.  
  194.     (set fullinstall "Full Install")
  195.     (set partialinstall "Partial Install")
  196.     (set installhelp (cat "Full install installs ALL Virus CheckerII files to "
  197.             "the directory chosen, while partial install just installs the "
  198.                           "program files where needed"
  199.                      )
  200.     )
  201.     (set where_vc (cat "Please select directory to put Virus_CheckerII in.\n"
  202.                        "Virus_CheckerII will NOT!!! create a directory here, if desired, "
  203.                        "you should do this yourself."
  204.                   )
  205.     )
  206.     (set copyingdir    "Copying Virus_CheckerII drawer")
  207.  
  208.     (set copybblib     "Copying Bootblock.library")
  209.     (set copybbfile    "Copying Bootblock.brainfile")
  210.  
  211.     (set copyxfdlib    "Copying xfdmaster.library")
  212.     (set copybguilib    "Copying bgui.library")
  213.     (set copyxfddecrs  "Copying XFD external decrunchers, please choose which ones to install")
  214.     (set copyvcbrain   "Copying VirusChecker.brain")
  215.     (set copyvcprog    "Copying Virus_CheckerII")
  216.     (set instaloverold "Virus_CheckerII being installed in WBStartup over old version")
  217.  
  218.     (set vcrunfrom     (cat "If you select User-Startup, a line must be added to your User-Startup "
  219.                             "which the installation utility can do for you, or you can do manually. "
  220.                             "This will start Virus_CheckerII from it's on directory when your machine boots.\n"
  221.                             "If you select WBStartup, an Icon will be copied to your WBStartup directory "
  222.                             "which will allow VirusCheckerII to be started from it's own directory.\n"
  223.                             "If you choose None then it might be obvious that no action is taken to "
  224.                             "assure that Virus_CheckerII is run when you system is started up."
  225.                        )
  226.     )
  227.  
  228.     (set adjtt         (cat "I am now adjusting the ToolType so that Virus_CheckerII will be started "
  229.                             "from it's own directory."
  230.                        )
  231.     )
  232.     (set delwbicon     (cat "I have found a Virus_CheckerII.info icon in your WBStartup directory, "
  233.                             "to make sure Virus_CheckerII is run from the correct directory, I recommend to "
  234.                             "have this icon deleted.\n"
  235.                             "Shall I delete this icon or leave it and skip installing a project icon?\n"
  236.                             "(skipping this might cause Virus_CheckerII not be started from WBStartup)"
  237.                        )
  238.     )
  239.     (set vcruntwo      "Where do you want to run Virus_CheckerII from?")
  240.     (set None          "None")
  241.  
  242.     (set bestplace     "The best place is from the User-Startup")
  243.     (set cantinstalloverdir "You can't install Virus_CheckerII over an existing directory")
  244.     (set removebrain  (cat "I have found version %ld.%ld of the VirusChecker.brain "
  245.                        "file in L:\n"
  246.                        "This is only needed if you're running Virus_CheckerII "
  247.                        "from WBStartup.\n"
  248.                        "Shall I delete it?"
  249.                       )
  250.     )
  251.     (set deletebrain   "Deleting L:VirusChecker.brain")
  252.     (set installguide  "Do you want to install the online AmigaGuide help file?")
  253.     (set copyingguide  "Copying Virus_Checker.guide")
  254.     (set whichlangs (cat "Which Virus CheckerII locale catalogs do you want "
  255.                          "to install?")
  256.     )
  257.     (set langhelp (cat "Copying these files will allow Virus_CheckerII to be "
  258.                        "run using different Locales under Workbench 2.1 or "
  259.                        "higher. Just select the catalog files which you "
  260.                        "will need to use.")
  261.     )
  262.     (set adddat        "I need to add the following line to your \s:User-Startup\ file\n\n%s")
  263.     (set copycat       "Copying Virus_Checker.catalog")
  264.     (set needtoreset   (cat "Virus_CheckerII is an Anti Virus utility which is worked upon almost "
  265.                             "24hrs a day. Though, problems might rise in spite of this. Most of these "
  266.                             "problems however are caused by not or half reading the documentation. "
  267.                             "A lot of problems can be solved or even prevented by reading the documenation. "
  268.                             "I therefore recommend that you read the documentation from front to back. It "
  269.                             "might happen that some problems are not solved even then, if so, feel free to "
  270.                             "contact me. How can be found in the documentation.\n\n"
  271.                             "I personally recommend that you also reset your computer now so that Virus_CheckerII "
  272.                             "can start properly."
  273.                        )
  274.     )
  275.  
  276.     (set instlrexx     "Do you want to install the Virus CheckerII ARexx scripts?")
  277.     (set copyrexx      "Which ARexx scripts do you want to copy?")
  278.     (set def_dir       "Where shall I find/put Virus_CheckerII?")
  279.     (set newicons      (cat "Thanks to Lyle Zapato, Virus_CheckerII now also enjoys "
  280.                             "NewIcons support, since he created a vast variety of special "
  281.                             "icons which have been included in this package and can be found "
  282.                             "in the directory Icons in the archive.\n"
  283.                             "These NewIcons are all (c)1997/1998 Lyle Zapato.\n\n"
  284.                             "Would you like me to copy these NewIcons?\n")
  285.     )
  286.     (set vc_arc         (cat "Should I copy Virus_CheckerII.Arc to Virus_CheckerII's own directory so you can check inside "
  287.                              "LHA and LZX archives right away? (only valid for registered users)"
  288.                         )
  289.     )
  290.   )
  291. )
  292.  
  293. (welcome)
  294. (message hello)
  295. (set VerN "")
  296. (WhatVersion)        ;Get version
  297. (if (< Ver 37)
  298.     (abort (cat #ver_err1 #err_msg))
  299. )
  300.  
  301. (set fullinstall (askbool (default 1)
  302.                           (prompt whatinstall)
  303.                           (help installhelp)
  304.                           (choices fullinstall partialinstall)
  305.                  )
  306. )
  307.  
  308. ;If installed already then use that one
  309. (if (= (exists "ENV:Virus_Checker_Path" (noreq)) 1)
  310.     (set @default-dest (getenv "Virus_Checker_Path"))
  311.     (if partialinstall
  312.         (set VCPath
  313.                 (askdir (prompt def_dir)
  314.                         (help @askdir-help)
  315.                         (default @default-dest)
  316.                 )
  317.         )
  318.     )
  319. )
  320.  
  321.  
  322. (if fullinstall
  323.   (
  324.     (set VCPath
  325.       (askdir (prompt where_vc)
  326.               (help @askdir-help)
  327.               (default @default-dest)
  328.       )
  329.     )
  330.  
  331.     (complete 10)
  332.  
  333.     ; Copy Virus_CheckerII drawer
  334.     (copylib (prompt copyingdir)
  335.              (help @copylib-help)
  336.              (source "Virus_CheckerII")
  337.              (dest VCPath)
  338.              (infos)
  339.              (optional oknodelete force)
  340.     )
  341.     (copylib (prompt copyingdir)
  342.              (help @copylib-help)
  343.              (source "VirusChecker.brain")
  344.              (dest VCPath)
  345.              (optional oknodelete askuser)
  346.     )
  347.     (copylib (prompt copyingdir)
  348.              (help @copylib-help)
  349.              (source "Virus_Checker.guide")
  350.              (dest VCPath)
  351.              (infos)
  352.              (optional nofail askuser)
  353.     )
  354.   )
  355.   ; If partial install
  356.   (
  357. (debug "")
  358.   )
  359. )
  360. (complete 20)
  361.  
  362. ; Update ENV settings
  363. (complete 30)
  364. (setVCEnv)
  365.  
  366.  
  367. ; Install libraries
  368.  
  369. (copylib (prompt copybblib)
  370.          (help @copylib-help)
  371.          (source "libs/Bootblock.library")
  372.          (dest "LIBS:")
  373.          (optional nofail askuser)
  374. )
  375.  
  376. (complete 40)
  377.  
  378. (copylib (prompt copybbfile)
  379.          (help @copylib-help)
  380.          (source "l/Bootblock.brainfile")
  381.          (dest "L:")
  382.          (optional nofail askuser)
  383. )
  384.  
  385.  
  386. (complete 50)
  387.  
  388. (copylib (prompt copyxfdlib)
  389.          (help @copylib-help)
  390.          (source "libs/xfdmaster.library")
  391.          (dest "LIBS:")
  392.          (optional nofail askuser)
  393. )
  394.  
  395. (copylib (prompt copybguilib)
  396.          (help @copylib-help)
  397.          (source "libs/bgui.library")
  398.          (dest "LIBS:")
  399.          (optional nofail askuser)
  400. )
  401.  
  402. (complete 55)
  403.  
  404. (copyfiles (prompt copyxfddecrs)
  405.            (help @copyfiles-help)
  406.            (source "libs/xfd")
  407.            (dest "LIBS:xfd")
  408.            (optional nofail askuser)
  409.            (confirm)
  410.            (all)
  411. )
  412.  
  413. (complete 60)
  414.  
  415. (copyfiles (prompt vc_arc)
  416.            (help @copylib-help)
  417.            (source "Virus_Checker.Arc")
  418.            (dest VCPath)
  419.            (optional nofail askuser)
  420.            (confirm)
  421. )
  422. (complete 65)
  423.  
  424. (if fullinstall
  425.   (
  426.     (set IconsDir (tackon VCPath "Icons"))
  427.  
  428.     (if (NOT (exists IconsDir))
  429.              (makedir IconsDir (infos))
  430.     )
  431.  
  432.     (set installicons (askbool (prompt newicons)
  433.                           (help @askbool-help)
  434.                           (default 1)
  435.                       )
  436.     )
  437.     (if installicons
  438.         (copyfiles
  439.                (prompt newicons)
  440.                (help @copyfiles-help)
  441.                (source "Icons")
  442.                (dest IconsDir)
  443.                (infos)
  444.                (all)
  445.                (optional nofail force)
  446.         )
  447.     )
  448.   )
  449. )
  450. (complete 70)
  451.  
  452. ; Check if brainfile is in L:
  453. (set brainfile (exists "L:VirusChecker.brain"))
  454.  
  455. (set wherestart (exists "SYS:WBStartup/Virus_CheckerII"))
  456.  
  457. (message vcrunfrom)
  458.  
  459. (if (= wherestart 0)
  460.   (set wherestart (askchoice (prompt vcruntwo)
  461.                              (help bestplace)
  462.                              (default 0)
  463.                              (choices "User-Startup" "WBStartup" None)
  464.                   )
  465.        
  466.   )
  467.   (
  468.     (if (= wherestart 1)
  469.       (message instaloverold)
  470.       (abort cantinstalloverdir)
  471.     )
  472.   )
  473. )
  474.  
  475. (if (= wherestart 0)
  476.   (
  477.     (if (= fullinstall 0)
  478.       (
  479.         (if (exists (tackon @default-dest "Utilities"))
  480.           (set VCPath (tackon @default-dest "Utilities"))
  481.           (if (exists "SYS:Utilities")
  482.             (set VCPath (expandpath "SYS:Utilities"))
  483.           )
  484.         )
  485.         (set VCPath (askdir (prompt "")
  486.                                    (help @askdir-help)
  487.                                    (default @default-dest)
  488.                            )
  489.         )
  490.         (copylib (prompt copyvcprog)
  491.                  (help @copylib-help)
  492.                  (source "Virus_CheckerII")
  493.                  (dest VCPath)
  494.                  (infos)
  495.                  (optional oknodelete force)
  496.         )
  497.         (copylib (prompt copyvcbrain)
  498.                  (help @copylib-help)
  499.                  (source "VirusChecker.brain")
  500.                  (dest VCPath)
  501.                  (optional nofail askuser)
  502.         )
  503.       )
  504.     )
  505.   )
  506. )
  507.  
  508. (if (= wherestart 1)
  509.   (
  510.     (copylib (prompt copyvcbrain)
  511.              (help @copylib-help)
  512.              (source "VirusChecker.brain")
  513.              (dest "L:")
  514.              (optional nofail askuser)
  515.     )
  516.     (if (= (exists "SYS:WBStartup/Virus_CheckerII.info" (noreq)) 1)
  517.         (set instwbicon (askbool (prompt delwbicon)
  518.                                  (help @askbool-help)
  519.                                  (default 1)
  520.                         )
  521.         )
  522.         (set instwbicon 1)
  523.     )
  524.     (if instwbicon
  525.         (
  526.             (copyfiles (prompt copyvcprog)
  527.                        (help @copylib-help)
  528.                        (source "VC_II_Project.info")
  529.                        (dest "SYS:WBStartup/")
  530.                        (optional oknodelete force)
  531.             )
  532.             (delete "SYS:WBStartup/Virus_CheckerII.info")
  533.             (rename "SYS:WBStartup/VC_II_Project.info" "SYS:WBStartup/Virus_CheckerII.info")
  534.             (set VCProjectTool (tackon VCPath "Virus_CheckerII"))
  535.             (tooltype
  536.                 (prompt adjtt)
  537.                 (dest "SYS:WBStartup/Virus_CheckerII")
  538.                 (setdefaulttool VCProjectTool)
  539.             )
  540.         )
  541.     )
  542.   )
  543.   (
  544.     (if (= brainfile 1)
  545.       (
  546.     (set VerN "L:VirusChecker.brain")
  547.     (WhatVersion)        ;Get version
  548.         (set rembrain (askbool (prompt (removebrain Ver Rev))
  549.                                (help @askbool-help)
  550.                                (default 1)
  551.                       )
  552.         )
  553.         (if (= rembrain 1)
  554.           (delete ("L:VirusChecker.brain")
  555.                   (optional force)
  556.           )
  557.         )
  558.       )
  559.     )
  560.     (if (= wherestart 0) ; User-Startup
  561.       (
  562.     (set cmd (tackon @default-dest "Virus_CheckerII"))
  563.         (startup @app-name (prompt (adddat cmd))
  564.                            (help @startup-help)
  565.                            (command cmd)
  566.         )
  567.       )
  568.     )
  569.   )
  570. )
  571.  
  572. (complete 80)
  573.  
  574. (if (askbool (prompt installguide)
  575.              (help @askbool-help)
  576.              (default 1)
  577.     )
  578.   (
  579.     (copylib (prompt copyingguide)
  580.              (help @copylib-help)
  581.              (source "Virus_Checker.guide")
  582.          (dest "HELP:")
  583. ;             (dest (cat "HELP:" @language))  Later
  584.              (optional nofail force)
  585.     )
  586.   )
  587. )
  588.  
  589. (complete 90)
  590.  
  591. (set localever (/ (getversion "locale.library" (resident)) 65536))
  592.  
  593. ;(if (>= (/ (getversion "locale.library" (resident)) 65536) 38))
  594. (if (>= localever 38)
  595.   (
  596.     (set locales (askoptions (prompt whichlangs)
  597.                              (help langhelp)
  598.                              (choices "nederlands"
  599.                                   "dansk"
  600.                                  "deutsh"
  601.                                 "français"
  602.                                   "norsk"
  603.                   )
  604.                  )
  605.     )
  606.   )
  607. )
  608. (if (IN locales 0)
  609.   (
  610.     (copylib (prompt copycat)
  611.              (help @copylib-help)
  612.              (source "catalogs/nederlands/Virus_CheckerII.catalog")
  613.              (dest "LOCALE:Catalogs/nederlands")
  614.              (optional nofail askuser)
  615.     )
  616.   )
  617. )
  618. (if (IN locales 1)
  619.   (
  620.     (copylib (prompt copycat)
  621.              (help @copylib-help)
  622.              (source "catalogs/dansk/Virus_CheckerII.catalog")
  623.              (dest "LOCALE:Catalogs/dansk")
  624.              (optional nofail askuser)
  625.     )
  626.   )
  627. )
  628.  
  629. (if (IN locales 2)
  630.   (
  631.     (copylib (prompt copycat)
  632.              (help @copylib-help)
  633.              (source "catalogs/deutsch/Virus_CheckerII.catalog")
  634.              (dest "LOCALE:Catalogs/deutsch")
  635.              (optional nofail askuser)
  636.     )
  637.   )
  638. )
  639.  
  640. (if (IN locales 3)
  641.   (
  642.     (copylib (prompt copycat)
  643.              (help @copylib-help)
  644.              (source "catalogs/français/Virus_CheckerII.catalog")
  645.              (dest "LOCALE:Catalogs/français")
  646.              (optional nofail askuser)
  647.     )
  648.   )
  649. )
  650.  
  651. (if (IN locales 4)
  652.   (
  653.     (copylib (prompt copycat)
  654.              (help @copylib-help)
  655.              (source "catalogs/norsk/Virus_CheckerII.catalog")
  656.              (dest "LOCALE:Catalogs/norsk")
  657.              (optional nofail askuser)
  658.     )
  659.   )
  660. )
  661.  
  662. (set installrexx (askbool (prompt instlrexx)
  663.                           (help @askbool-help)
  664.                           (default 1)
  665.                  )
  666. )
  667.  
  668. (if installrexx
  669.   (copyfiles (prompt copyrexx)
  670.              (help @copyfiles-help)
  671.              (source "ARexx")
  672.              (dest "REXX:")
  673.              (all)
  674.              (optional nofail askuser)
  675.              (confirm)
  676.   )
  677. )
  678.  
  679. (complete 100)
  680.  
  681. (if (= wherestartup 2)
  682.   (exit)
  683.   (exit needtoreset)
  684. )
  685.